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L'argomento di questa lezione sono le tecniche avanzate di 
ingresso dati con le istruzioni GET, READ, DATA, RESTORE. 
Oltre all'INPUT (lez. 5) ci sono oltre istruzioni che ti permettono 
di fornire doti al programmo. 

Quando viene eseguita un'istruzione INPUT il programmo si 
fermo aspettando che dopo la risposto botti il RETURN. 

Al contrario, usando l'istruzione GET, il programmo continuo 
l'esecuzione. 

Il GET ti permette infatti di inserire un corqttere per volta senza 
che debbo premere il RETURN. 

L'istruzione GET deve sempre essere seguita da uno variabile 
(numerico o stringa), ad esempio GET A$. 













Durante l'esecuzione del GET A$, il carattere battuto sulla 
tastiera, verrà assegnato ad A$. Ma attenzione perchè il 
carattere battuto non comparirà sul video e per visualizzarlo 
dovrai stampare con un PRINT il contenuto nella variabile A $. 
Se nessun carattere viene premuto, alla variabile dopo il GET 
verrà assegnato il numero o la stringa vuota (da non 
confondere con lo spazio), a seconda che sia una variabile 
numerica o stringa. Solitamente dopo il GET si usa una 
variabile stringa, infatti usandone una numerica quando 
viene premuto un tasto non numerico il computer segnala 
l'errore. Questo perchè, come ben sai, un carattere stringa 
non può essere assegnato in una variabile numerica. 

Per convertire il carattere inserito in un numero puoi usare la 
funzione VAL in questo modo: 

GET AS : A = VAL (A$) 


Il GET solitamente viene posto all'interno di un ciclo 
costruito con l'IF in modo che, se non vengono 


premuti tasti, ritorni ad eseguire il GET. 




Osserva ora questo esempio. Lo lineo: 

10 GET A$ : IF A$ ="" THEN 10 

ha il compito di far attendere l'esecuzione del programmo 
finché non viene premuto un qualsiasi tosto. 

Così, ad A$ verrà assegnato lo stringo vuota e il test 

IF A$ = r ' rr THEN 


... (cioè se A$ è uguale olla stringa vuoto) continuerà 
ad essere verificato. 


A volte nei programmi capito 
di dover assegnare una 
gronde quantità di dati, che 
solitamente rimangono 
costanti per tutto l'esecuzione. 
Potresti risolvere il problema 
scrivendo una lungo fila di 
assegnazioni, ma il 
procedimento non sarebbe 
molto efficace. 

Quindi, quando devi 
assegnare doti a più variabili 
o vettori o o motrici, ti 
conviene usare le istruzioni 
READ, DATA e RESTORE. 





L'istruzione READ, che è seguito do uno o più variabili 
numeriche o stringa, separate dalla virgola, legge 
nell'istruzione DATA i dati da assegnare alle variabili 
specificate. L'istruzione DATA, che è seguita da uno o più dati, 
numerici o stringa, separati dalla virgola, specifica i dati da 
assegnare alle variabili presenti nel READ. Così, se ci sono 
parecchi dati, dovrai usare più linee di programma con 
l'istruzione DATA, una in proseguimento dell'altra. 

Scrivi pure i DATA in qualsiasi punto del programma, visto che 
durante l'esecuzione verranno ignorati. 

Ogni volta che viene eseguito il READ, ad ogni variabile che 
segue verrà assegnato il dato successivo all'ultimo letto. 
Naturalmente ad ogni dato presente nel DATA deve 
corrispondere una variabile dello stesso tipo 
(numerica o stringa) nel READ. A volte può 
servire di dover rileggere i dati ripartendo 
dal primo: lo puoi fare scrivendo 
l'istruzione RESTORE. 




Listato dell'esercizio: ESEMPIO PRATICO 
PER L'UTILIZZO DELLE ISTRUZIONI 
READ E DATA 

10 DIML(12) 

20 F0RK=1T012 
30 READL(K) 

40 NEXTK 

50 INPUTMESE <1-12)";M 
60 IFM>12THEN50 
70 IFM=0THEN50 
80 INPUT"GI0RN0";G 
90 IFG>L(M)THEN80 

100 F0RK=1T0M:T=T+L(K):NEXTK:T=T-L(M)+G 
110 PRINT"GIORNI TRASCORSI";T 
120 END 

130 DATA31,28,31,30,31,30,31,31,30,31,30,31 


Listato dell'esercizio: COMPLETA IL LISTATO 


10 |*|N$(12),L(12) 

20 F0RK=1T0|*| 

30 READN$(K),L(K) 

40 NEXTK 

50 INPUT"NUMERO MESE(1-12)";|*| 

60 IFM>12|*|50 

70 PRINT|*|" HA"L(M)"GIORNI" 

80 PRINT"UN ALTRO MESE (S/N)" 

90 GET|*| 

100 IFA$=|*|THEN50 

110 IFA$="N"THENPRINT"FINE":|*| 

120 GOTO|*| 

130 DATA"GEN",31,"FEB",|*|,"MAR",31 
140 DATA"APR",30,"|*|",31,"GIU",30 
150 DATA"LUG",31,"AG0",31,"SET",30 
160 DATA"OTT",31,"NOV",30,"DIC",|*| 
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PROGRAMMIAMO INSIEME 


10 PRINTCHR$(147)"PREMI UN TASTO" 
20 GETA$:IFA$=""THEN20 
30 TI$="000000" 

40 S$=RIGHT$CTI$,2) 

50 PRINTCHR$(147)"SECONDI: ";S$ 

60 IFS$O"15"THEN40 
70 PRINT"TEMPO FINITO" 


Soluzione dell'esercìzio 
"COMPLETA IL LISTATO" 

(apparso nella lezione n. 16) 


10 PRINTCHR$(147)"SCRITTA GIREVOLE" 
20 INPUT"SCRITTA ";S$ 

30 L=LEN(S$) 

40 IFL>15THEN10 
50 F0RG=1T0L 
60 PRINTCHR$(147);S$; 

70 S$=RIGHT$(S$ / L-1)+LEFT$(S$,1) 

80 F0RK=1TO200:NEXTK 
90 NEXTG 
100 F0RB=1T03 
110 PRINTCHR$(147)" 

120 F0RK=1TO200:NEXTK 
130 PRINTCHR$(147);S$ 

140 FORK=1TO200:NEXTK 
150 NEXTB:GOTO50 
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COME UTILIZZARE LA GESTIONE MAGAZZINO 


Con la GESTIONE AAAGAZZINO puoi archiviare i prodotti (circo 300 sul CBM 64 e 
25/30 sul VIC 20 senza espansione di memoria), fare l'inventario, calcolare il 
valore complessivo delle merci, ecc. 

Come al solito, appena coricato, fi comparirà il MENU composto di dieci voci, che 
vedremo oro uno per volta. 

Per cominciare botti il n. 6 dell'INSERIMENTO. Ti verrà visualizzato il numero di 
CODICE dell'oiticolo che stai per inserire. 


Inserisci quindi: DESCRIZIONE 

(usando ol massimo 20 caratteri) 


PREZZO 1 

^ n tt tt ^ n 

) 

PREZZO 2 

^ tt tt tt g n 

) 

ALIQUOTA IVA 

^ ri tt tt ^ n 

) 

UNITA' DI MISURA 

^ n tt rr ^ tt 

) 

GIACENZA 

^ tt tt tt q tt 

) 


Il PREZZO 1 e il PREZZO 2 potrai usarli rispettivamente come: prezzo di listino e 
prezzo scontato. L'UNITA' DI MISURA può essere abbreviata, od esempio: 
PZ-pezzi, NR-numero, LT-litri, MT-mefri, ecc. 

Durante l'INSERIMENTO ricorda di non lasciare mai in bianco le risposte, altri¬ 
menti anche battendo il RETURN non potrai proseguire. 

Con il n. 7 puoi variare un articolo inserito e con il n. 8 eseguire lo cancellazione. 
Puoi ricercare un articolo introducendo, con il n. 1, il numero di CODICE. Se non lo 
ricordi, con il n. 2 lo ricerco avverrà attraverso lo DESCRIZIONE dell'oggeffo inse¬ 
rito. 

Per conoscere invece quali sono gli orticoli che mancano o che stanno per ondare 
in esaurimento nel magazzino, usa il n. 3 dello SOTTOSCORTA e inserisci il nume¬ 
ro del quantitativo che vuoi controllare. 

Ad esempio, se premi il numero 20 ti verranno mostrati tutti gli orticoli che hanno 
uno giacenza uguale o minore a 20. 

Con il n. 4 ti verrà mostrato ['INVENTARIO dell'intero magazzino e con il n. 5 verrà 
calcolato il valore totale delle merci contenute nel magazzino stesso. 

Per registrare i doti inserisci il n. 10 dello SCRITTURA FILE e scegli (battendo l'I o il 
2) il salvataggio sul nastro o sul floppy disk. 

Una volto salvati i doti, premerai il n. 9 dello LETTURA FILE se vuoi rileggerli. 
Ricorda comunque che puoi fermare in qualsiasi momento il programmo pre¬ 
mendo RUN/5TOP e RESTORE insieme. 

Per tornare al programmo senza perdere i dati inseriti scrivi GOTO 100 e baffi 
RETURN. 



